home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlx_sq15.zip / TAGLINE.SLT < prev    next >
Text File  |  1990-11-04  |  2KB  |  50 lines
  1. //-----------------------------------------------------------
  2. // TAGLINE.SLT Send tagline.
  3. //
  4. // Please look at the comments through the whole file, and modify to
  5. // suit your needs, BEFORE you use it. Then recompile with CS TAGLINE.
  6. //-----------------------------------------------------------
  7.  
  8. str bbs_type[32]         // BBS type.
  9.    ,tagline [80]         // Tagline.
  10.    ,bbstype []="BTYPE"   // BBS type.
  11.    ,version []="PCBVER"  // PCB version.
  12.    ,tag    [4]           // Tagline.
  13.    ,global  []="GLOBAL"  // Name of Global script.
  14.    ;
  15.  
  16. //-----------------------------------------------------------   
  17. // Script starts here.
  18. //-----------------------------------------------------------   
  19.  
  20. main()
  21. {
  22. int PCBver;
  23.  
  24.   PCBver = 0;
  25.   call (global,"R",bbstype,tagline);     // Get BBS type.
  26.   if (tagline == "PCB" )
  27.   { call (global,"R",version,tagline);   // PCBoard:
  28.     PCBver = stoi (tagline);             // Get version.
  29.   }
  30.  
  31.   if (call (global,"R","TAGA",tagline) > 0) // Get tagline a.
  32.   { if (PCBver > 144) prints (tagline);
  33.     cputs (tagline);
  34.     cputs (" ^M");
  35.   }
  36.  
  37. // Different tagline for PCB and other systems.
  38.  
  39.   if (PCBver)                            // PCB:
  40.     tag = "TAGC";                        // Tagline C.
  41.   else
  42.     tag = "TAGB";                        // No, tagline B.
  43.   
  44.   if (call (global,"R",tag,tagline) > 0) // Get tagline b or c.
  45.   { if (PCBver > 144) prints (tagline);
  46.     cputs (tagline);
  47.     cputs (" ^M");
  48.   }
  49. }
  50.